Imports System
Module qs

   Sub Main()
        Dim i As Integer = 0
        Do While i < 10
            Console.WriteLine(i)
            i = i + 1
        Loop
        Console.ReadKey()
    End Sub
    
End Module
